(rmail-unknown-mail-followup-to): Handle a nil value of

rmail-user-mail-address-regexp.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index fbbd5cea2d65f9ce4294c28564eb972149e00f7f..7af14d3d79f09c5472a9da2765f25c8b09de048a 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2106,7 +2106,9 @@ Ask the user whether to add that list name to `mail-mailing-lists'."
                ",[[:space:]]+" t)))
          (dolist (addr addresses)
            (when (and (not (member addr mail-mailing-lists))
-                      (not (string-match rmail-user-mail-address-regexp addr))
+                      (and rmail-user-mail-address-regexp
+                           (not (string-match rmail-user-mail-address-regexp
+                                              addr)))
                       (y-or-n-p
                        (format "Add `%s' to `mail-mailing-lists'? "
                                addr)))